home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
demolar
/
lokman
/
DISK1
/
_SETUP.2
/
Group1
/
Tarihdll.dll
/
0
/
RCDATA
/
TFMKURUMBR
/
TFMKURUMBR.txt
< prev
Wrap
Text File
|
1998-07-24
|
13KB
|
436 lines
object fmKURUMBR: TfmKURUMBR
Left = 57
Top = 46
ActiveControl = DBGridKUR
BorderStyle = bsSingle
Caption = 'CAR� KAYITLARI'
ClientHeight = 353
ClientWidth = 554
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Panel1: TPanel
Left = 0
Top = 0
Width = 554
Height = 57
HelpContext = 302
Align = alTop
BevelInner = bvLowered
BevelWidth = 3
BorderWidth = 1
Color = clNavy
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
object Navigator: TDBNavigator
Left = 16
Top = 17
Width = 130
Height = 27
DataSource = kurumBrSRC
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Ctl3D = False
Hints.Strings = (
'�lk kay�t'
'�nceki'
'Sonraki'
'SonKay�t'
'Yeni Kay�t'
'Kay�t Sil'
'D�zelt'
'Kaydet'
'Vazge�'
'Tazele')
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = True
end
object BitBtnCARI: TBitBtn
Left = 221
Top = 17
Width = 163
Height = 27
Hint = 'F5 tu�u'
HelpContext = 304
Caption = 'Cari Hareket Kart�'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtnCARIClick
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555550000000000055555033333333305555503111111130555550313333313
0555550313333313055555031330331305555503100000130555550310000013
0555550300030003055555031000001305555503100000130555550311101113
0555550333333333055555000000000005555555555555555555000000000000
0000000000000000000000000000000000000000}
end
object BitBtnSec: TBitBtn
Left = 421
Top = 17
Width = 87
Height = 27
HelpContext = 502
Caption = '&Se�'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 2
Visible = False
OnClick = BitBtnSecClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 11
end
end
object Panel2: TPanel
Left = 0
Top = 57
Width = 554
Height = 239
HelpContext = 302
Align = alClient
BevelInner = bvLowered
BevelOuter = bvLowered
BorderWidth = 4
Caption = 'Panel2'
Color = clSilver
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = DBGridKURColEnter
object Label1: TLabel
Left = 79
Top = 9
Width = 26
Height = 15
Transparent = True
Visible = False
end
object Label2: TLabel
Left = 32
Top = 9
Width = 42
Height = 15
Caption = 'Aranan:'
Transparent = True
Visible = False
end
object Image1: TImage
Left = 9
Top = 8
Width = 18
Height = 17
Picture.Data = {<image000.bmp>}
end
object DBGridKUR: TDBGrid
Left = 7
Top = 26
Width = 538
Height = 205
Color = clTeal
Ctl3D = True
DataSource = kurumBrSRC
FixedColor = clSilver
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Color = clNavy
TitleFont.Height = -11
TitleFont.Name = 'Arial Tur'
TitleFont.Style = [fsBold]
OnColEnter = DBGridKURColEnter
OnDblClick = DBGridKURDblClick
OnEnter = DBGridKURColEnter
OnExit = DBGridKURColEnter
OnKeyDown = DBGridKURKeyDown
OnKeyPress = DBGridKURKeyPress
end
end
object Panel3: TPanel
Left = 0
Top = 296
Width = 554
Height = 57
HelpContext = 302
Align = alBottom
BevelInner = bvLowered
BevelWidth = 3
BorderWidth = 1
Color = clNavy
TabOrder = 2
object BitBtnYeni: TBitBtn
Left = 15
Top = 16
Width = 89
Height = 27
Hint = 'Insert Tu�u'
Caption = 'Yeni Kay�t'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = BitBtnYeniClick
OnKeyDown = BitBtnYeniKeyDown
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 3
end
object BitBtnDegis: TBitBtn
Left = 124
Top = 16
Width = 89
Height = 27
Caption = '&De�i�tir'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
OnClick = BitBtnDegisClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 5
end
object BitBtnSil: TBitBtn
Left = 233
Top = 16
Width = 89
Height = 27
Hint = 'Ctrl Delete Tu�u'
Caption = 'Kay�t Sil'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = BitBtnSilClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B55555555555555750000}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 2
end
object BitBtnKapat: TBitBtn
Left = 341
Top = 16
Width = 89
Height = 27
Hint = 'Alt-F4 Tu�u'
Caption = 'Kapat'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
Kind = bkClose
Layout = blGlyphRight
end
object BitBtnHelp: TBitBtn
Left = 450
Top = 16
Width = 89
Height = 27
Hint = 'F1 Tu�u'
HelpContext = 302
Caption = 'Yard�m'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
Kind = bkHelp
Layout = blGlyphRight
end
end
object kurumBrSRC: TDataSource
DataSet = kurumBr
Left = 201
Top = 15
end
object kurumBr: TTable
OnCalcFields = kurumBrCalcFields
DatabaseName = 'ECZ'
IndexFieldNames = 'AD;KOD'
TableName = 'KRMLAR.DB'
Left = 174
Top = 15
object kurumBrAD: TStringField
DisplayLabel = 'CAR� ADI'
DisplayWidth = 36
FieldName = 'AD'
Required = True
Size = 36
end
object kurumBrKOD: TStringField
FieldName = 'KOD'
Size = 11
end
object kurumBrCARITIPI: TStringField
DisplayLabel = 'Tipi'
DisplayWidth = 5
FieldName = 'CARITIPI'
OnGetText = kurumBrCARITIPIGetText
Size = 1
end
object kurumBrBORC: TCurrencyField
FieldName = 'BORC'
Visible = False
end
object kurumBrALACAK: TCurrencyField
FieldName = 'ALACAK'
Visible = False
end
object kurumBrKALAN: TCurrencyField
Calculated = True
DisplayLabel = 'Bor�-Alacak Durumu'
DisplayWidth = 17
FieldName = 'KALAN'
OnGetText = kurumBrKALANGetText
end
end
object CarHrkTab: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'CARIKOD;TARIH'
ReadOnly = True
TableName = 'HAREKET.DB'
Left = 24
Top = 120
object CarHrkTabCARIKOD: TStringField
FieldName = 'CARIKOD'
Size = 11
end
end
object RecBakTab: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'KURUMKOD;ALTARIH;FATARIH'
ReadOnly = True
TableName = 'RECETE.DB'
Left = 24
Top = 152
object RecBakTabKURUMKOD: TStringField
FieldName = 'KURUMKOD'
Size = 11
end
end
object FatBakTab: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'KRMKOD;FATARIH'
ReadOnly = True
TableName = 'FATURA.DB'
Left = 25
Top = 186
object FatBakTabKRMKOD: TStringField
FieldName = 'KRMKOD'
Size = 11
end
end
object UserAbc: TTable
DatabaseName = 'ECZ'
TableName = 'usera.db'
Left = 376
Top = 89
object UserAbcKURUMHRK: TStringField
FieldName = 'KURUMHRK'
Size = 1
end
end
end